home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CLAMTRAN.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  167 lines
  1. ;\|
  2. ;CLAMTRAN.SRC     Translated from CLAMTRAN.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;TRANSES  05:19:16 PM  12/ 2/90                    |
  4. ;Program generated with the report writer|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(SELECT.FLD.F1|A|  1||)
  18.     define(SELECT.FLD.T1|A|  1||)
  19.     define(COMMODE|A|2||)
  20.     clrscr
  21.     clrlne(1|25)
  22.     open(CLAIM_TR||0|EXIT)
  23.     gosub GET.DATE
  24.     mount(REPORT|R|P)
  25.     pchr(P|10)
  26.     pchr(P|11)
  27.     pchr(P|4)
  28.     pchr(P|1)
  29.     trap(P|S|TOF)
  30.     gosub TOF
  31.     trap(P|S|TOF)
  32.     trap(I|G|FINI)
  33.     find(B|CLAIM.DATE|NO.RECS|)
  34. PRT.REC:
  35.     pfmt(6||||)
  36.     TOT.RECS = (TOT.RECS + 1)
  37. RD.NEXT:
  38.     find(N|CLAIM_TR|FINI|)
  39.     goto PRT.REC
  40. FINI:
  41.     pfmt(5||||)
  42.     pfmt(8||||)
  43.     pblnk(2)
  44.     pfmt(7||||)
  45.     trap(P|D|)
  46.     ptof
  47.     run("CLAIM")
  48. TOF:
  49.     PAGE = (PAGE + 1)
  50.     pfmt(1||||)
  51.     pfmt(2||||)
  52.     pfmt(3||||)
  53.     pblnk(1)
  54.     pfmt(4||||)
  55.     pfmt(5||||)
  56.     ret
  57. GET.DATE:
  58.     time(CHG.TIME|G)
  59.     date(CHG.DATE|G)
  60.     AM.PM = ("AM")
  61.     if CHG.TIME > (43199) doO 
  62.         {
  63.         AM.PM = ("PM")
  64.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  65.         }
  66.     TIME.STRG =mid(CHG.TIME|1|8|)
  67.     STDDAYS =day(CHG.DATE)
  68.     STDMONTH =xmt(CHG.DATE)
  69.     STDAYH =mid(CHG.DATE|4|2|)
  70.     STDYEAR =mid(CHG.DATE|7|4|)
  71.     PG.STRG = (PAGE)
  72.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  73.     ret
  74. NO.RECS:
  75.     pmsg("There are no records in the TRANS    file "|1|24|Y|||)
  76. EXIT:
  77.     run("CLAIM")
  78. \R REPORT  
  79.                     LIST OF CLAIMS
  80.                 &
  81.                                  Page # &
  82. CLAIM.DATE  NUM.CLAIMS    CLAIM.ACC     PAYEE
  83. ----------  ------------  ------------  ---------------  ----------     ----------
  84. &           &             &             &                              &
  85. Total number of records printed: &
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127. \
  128. DATE.TIME.FLD
  129. PAGE
  130. CLAIM.DATE
  131. NUM.CLAIMS
  132. CLAIM.ACCOUNT
  133. CLAIM.PAYEE
  134. CLAIM.DESC
  135. TOT.RECS
  136. \
  137. \STSELECT  
  138.          Selection screen for LIST OF TRANSACTIONS FOR BANK RECONCIL.
  139.          ------------------------------------------------------------
  140.        &: ENTER I FOR "INCOME" TRANSACTIONS HERE-THEN PRESS RETURN TWICE
  141.        &: ENTER E FOR EXPENDITURE TRANSACTIONS HERE-THEN PRESS RET. TWICE
  142.  
  143.  
  144. NOTE: YOU MUST NOT ENTER I AND E AT THE SAME TIME
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162. \
  163. SELECT.FLD.F1
  164. SELECT.FLD.T1
  165. \
  166.  
  167.